unit U_basico_vertical;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, Wwdbigrd, Wwdbgrid, Mask,
  ToolEdit, CurrEdit, RXCtrls;

type
  Tbasico_vertical = class(TForm)
    Panel1: TPanel;
    B_gravar: TBitBtn;
    B_alterar: TBitBtn;
    B_inserir: TBitBtn;
    B_cancelar: TBitBtn;
    B_excluir: TBitBtn;
    B_sair: TBitBtn;
    RxLabel1: TRxLabel;
    E_Codigo: TRxCalcEdit;
    Grid_base: TwwDBGrid;
    procedure B_sairClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  basico_vertical: Tbasico_vertical;

implementation

{$R *.dfm}

procedure Tbasico_vertical.B_sairClick(Sender: TObject);
begin
  Close;
end;

procedure Tbasico_vertical.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

end.
